inherited fmAddEditPervPodotch: TfmAddEditPervPodotch
  Left = 672
  Top = 193
  Width = 667
  Height = 751
  Caption = 'fmAddEditPervPodotch'
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 690
    Width = 659
  end
  inherited Panel1: TPanel
    Width = 659
    inherited BitBtn1: TBitBtn
      Left = 489
    end
    inherited BitBtn2: TBitBtn
      Left = 577
    end
  end
  object cxDBVerticalGrid1: TcxDBVerticalGrid [2]
    Left = 0
    Top = 45
    Width = 225
    Height = 645
    Align = alLeft
    LookAndFeel.SkinName = 'Office2007Green'
    OptionsView.RowHeaderWidth = 120
    OptionsBehavior.AlwaysShowEditor = False
    OptionsBehavior.GoToNextCellOnEnter = True
    OptionsBehavior.GoToNextCellOnTab = True
    OptionsBehavior.RowTracking = False
    OptionsBehavior.FocusFirstCellOnNewRecord = True
    Styles.Content = DMInv.cxData
    TabOrder = 2
    DataController.DataSource = dlgDS
    DataController.GridMode = True
    object cxDBVerticalGrid1DBEditorRow4: TcxDBEditorRow
      Properties.Caption = #1055#1086#1076#1086#1090#1095#1077#1090#1085#1086#1077' '#1083#1080#1094#1086
      Properties.EditPropertiesClassName = 'TcxLookupComboBoxProperties'
      Properties.EditProperties.KeyFieldNames = 'PPID'
      Properties.EditProperties.ListColumns = <
        item
          Width = 100
          FieldName = 'PP'
        end
        item
          Width = 100
          FieldName = 'SDNAME'
        end>
      Properties.EditProperties.ListOptions.ShowHeader = False
      Properties.EditProperties.ListSource = dsPPID
      Properties.DataBinding.FieldName = 'PPID'
    end
    object cxDBVerticalGrid1DBEditorRow1: TcxDBEditorRow
      Properties.Caption = #1057#1091#1084#1084#1072
      Properties.DataBinding.FieldName = 'RPSDSUMMA'
    end
    object cxDBVerticalGrid1DBEditorRow2: TcxDBEditorRow
      Properties.Caption = #1044#1072#1090#1072
      Properties.DataBinding.FieldName = 'RPSDDATE'
    end
    object cxDBVerticalGrid1DBEditorRow3: TcxDBEditorRow
      Height = 50
      Properties.Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
      Properties.DataBinding.FieldName = 'RPSDNOTE'
    end
  end
  object cxSplitter1: TcxSplitter [3]
    Left = 225
    Top = 45
    Width = 8
    Height = 645
    HotZoneClassName = 'TcxMediaPlayer9Style'
    Control = cxDBVerticalGrid1
  end
  object Panel2: TPanel [4]
    Left = 233
    Top = 45
    Width = 426
    Height = 645
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 4
    object cxButton1: TcxButton
      Left = 0
      Top = 0
      Width = 426
      Height = 25
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100'/'#1047#1072#1084#1077#1085#1080#1090#1100' '#1082#1086#1087#1080#1102' '#1080#1079' '#1093#1088#1072#1085#1080#1083#1080#1097#1072
      TabOrder = 0
      OnClick = cxButton1Click
      Align = alTop
      LookAndFeel.SkinName = 'Office2007Green'
    end
    object PdfViewer1: TPdfViewer
      Left = 0
      Top = 25
      Width = 426
      Height = 620
      Align = alClient
      About = 'Synactis PDF Viewer version 1.0'
      AutoOpen = True
      Copies = 1
      EndPage = 0
      FitMode = vmFitBoxHorz
      LayoutMode = lmDontCare
      PageMode = pmStandard
      ShowPrintDialog = True
      ShowScrollBars = True
      ShowToolBar = False
      ShrinkToMargins = True
      StartPage = 1
    end
  end
  inherited dlgDS: TDataSource
    Left = 200
    Top = 8
  end
  object dsPPID: TDataSource
    DataSet = qPPID
    Left = 144
    Top = 173
  end
  object qPPID: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT P.PID, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      '    SD.SDNAME, d.SDID, PP.PPID'
      'FROM PEOPLE P'
      'INNER JOIN DOLJNOST d ON d.PID = P.PID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = d.SDID'
      
        'INNER JOIN PERSON_PODOTCH PP ON PP.PP_ID = d.PID AND PP.PPTYPE =' +
        ' 4'
      'WHERE P.PISDELETE IS NULL AND d.DOLISDELETE IS NULL'
      
        'AND CURRENT_DATE BETWEEN D.DOLDATEBEGIN AND COALESCE(d.DOLDATEEN' +
        'D, CURRENT_DATE)'
      'UNION'
      'SELECT FIRST 1 NULL AS PID, NULL AS PP,'
      '    NULL AS SDNAME, NULL AS SDID, NULL AS PP'
      'FROM PEOPLE P'
      'ORDER BY 2')
    GeneratorField.Field = 'RPID'
    Left = 168
    Top = 173
    object qPPIDPID: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object qPPIDPP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qPPIDSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qPPIDSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"DOLJNOST"."SDID"'
    end
    object qPPIDPPID: TIntegerField
      FieldName = 'PPID'
      Origin = '"PERSON_PODOTCH"."PPID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
  end
end
